home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / UTIL.CITY.SHK / UTILITY.CITY / CAT VIEWER.bas < prev    next >
BASIC Source File  |  2000-01-01  |  689b  |  9 lines
  1. 100  HGR : POKE  -16302,0: PRINT  CHR$(4)"BLOAD CAT.PIC,A$2000"
  2. 110  READ A,B: IF (A)  THEN  POKE A,B: GOTO 110
  3. 120  GOSUB 160
  4. 130  READ A,B: IF (A)  THEN  POKE A,B: GOTO 130
  5. 140  GOSUB 160: IF  PEEK( -16384) <128  THEN  RESTORE : GOTO 110
  6. 150  POKE  -16368,0: TEXT : HOME : VTAB 24: POKE  -16301,0: END 
  7. 160  FOR I = 1 TO 66: NEXT : RETURN 
  8. 170  DATA 8553,199,8554,194,9577,15,9578,71,10601,15,10602,130,11328,0,11625,8,11626,0,12352,0,12649,3,12650,0,13376,0,13673,31,14400,0,15424,0,0,0: REM FINGER DOWN
  9. 180  DATA 8553,135,8554,192,9577,159,9578,224,10601,255,10602,128,11328,21,11625,152,11626,142,12352,10,12649,195,12650,135,13376,21,13673,159,14400,10,15424,21,0,0: REM    FINGER UP